perm filename LKSGD.F4[TLC,MUS]1 blob
sn#060267 filedate 1973-08-29 generic text, type T, neo UTF8
00100 C GOOD-LOOKS PROGRAM -- TYPE X TO BACKUP
00200 INTEGER DL,SL
00300 11 FORMAT(A1)
00400 1 FORMAT(' LEGS? GOOD OR BAD? ',$)
00500 12 TYPE 1
00600 ACCEPT 11,L
00700 IF(L.EQ.'G')GO TO 16
00800
00900 2 FORMAT(' THIGHS? ',$)
01000 13 TYPE 2
01100 ACCEPT 11,T
01200 IF(T.EQ.'X')GO TO 12
01300
01400 3 FORMAT(' KNEES? ',$)
01500 14 TYPE 3
01600 ACCEPT 11,K
01700 IF(K.EQ.'X')GO TO 13
01800
01900 4 FORMAT(' CALVES? ',$)
02000 15 TYPE 4
02100 ACCEPT 11,C
02200 IF(C.EQ.'X')GO TO 14
02300
02400 5 FORMAT(' ARMS? ',$)
02500 16 TYPE 5
02600 ACCEPT 11,A
02700 IF(A.EQ.'X')GO TO 15
02800
02900 6 FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW? ',$)
03000 17 TYPE 6
03100 ACCEPT 11,S
03200 IF(S.EQ.'X')GO TO 16
03300
03400 7 FORMAT(' WAIST? GOOD, WIDE OR NARROW? ',$)
03500 18 TYPE 7
03600 ACCEPT 11,H
03700 IF(H.EQ.'X')GO TO 17
03800
03900 8 FORMAT(' HIPS? GOOD, WIDE OR NARROW? ',$)
04000 19 TYPE 8
04100 ACCEPT 11,B
04200 IF(B.EQ.'X')GO TO 18
04300
04400 9 FORMAT(' BUST? GOOD, BIG OR SMALL? ',$)
04500 20 TYPE 9
04600 ACCEPT 11,N
04700 IF(N.EQ.'X')GO TO 19
04800
04900 10 FORMAT(' NECK? GOOD, LONG OR SHORT? ',$)
05000 DL=1
05100 IF(L.EQ.'G')GO TO 21
05200 C JUMP IF GOOD LEGS
05300 IF(T.EQ.'B')DL=2
05400 IF(K.EQ.'B')DL=3
05500 IF(C.EQ.'B')DL=4
05600 21 SL=1
05700 IF(S.EQ.'N')SL=3
05800 C SHOULDER LINE BEST
05900 IF(S.NE.'W')GO TO 22
06000 SL=2
06100 C SLEEVELESS BEST, NO SHOULDER LINE
06200 IF(A.EQ.'B')SL=4
06300 C LONG SLEEVES,NO SHOULDER LINE
06400 41 FORMAT(/' << SKIRT SHOULD BE '$)
06500 22 TYPE 41
06600 GO TO(23,24,25,26),DL
06700
06800 27 FORMAT('+SHORT.'/)
06900 23 TYPE 27
07000 GO TO 28
07100
07200 29 FORMAT('+MEDIUM SHORT.'/)
07300 24 TYPE 29
07400 GO TO 28
07500
07600 30 FORMAT('+MEDIUM LONG.'/)
07700 25 TYPE 30
07800 GO TO 28
07900
08000 31 FORMAT('+LONG.'/)
08100 26 TYPE 31
08200
08300 28 GO TO(32,33,34,35),SL
08400
08500 36 FORMAT(' << ANY SHOULDER CUT.'/)
08600 32 TYPE 36
08700 GO TO 37
08800
08900 38 FORMAT(' << SLEEVELESS IS BEST.'/)
09000 33 TYPE 38
09100 GO TO 37
09200
09300 39 FORMAT(' << USE SHOULDER LINE.'/)
09400 34 TYPE 39
09500 GO TO 37
09600
09700 40 FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
09800 35 TYPE 40
09900
10000 37 CALL EXIT
10100 END